inherited formCadCidades: TformCadCidades
  Caption = 'Cadastro de Cidades'
  ClientHeight = 372
  ClientWidth = 584
  ExplicitWidth = 600
  ExplicitHeight = 410
  PixelsPerInch = 96
  TextHeight = 13
  inherited pgcCadastro: TPageControl
    Width = 584
    Height = 308
    ActivePage = tbsficha
    ExplicitWidth = 116
    inherited tbsGrid: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 108
      ExplicitHeight = 308
      inherited dbgConsulta: TDBGrid
        Top = 55
        Width = 576
        Height = 243
        DataSource = dsCadastro
        Columns = <
          item
            Expanded = False
            FieldName = 'Cidade_Cd'
            Title.Caption = 'C'#243'digo'
            Width = 84
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Cidade_Ds'
            Title.Caption = 'Descri'#231#227'o'
            Width = 399
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Cidade_UF'
            Title.Caption = 'UF'
            Width = 33
            Visible = True
          end>
      end
      inherited pnlFiltro: TPanel
        Width = 576
        Height = 55
        ExplicitWidth = 108
        ExplicitHeight = 55
        object OdontoLabel4: TOdontoLabel
          Left = 16
          Top = 8
          Width = 33
          Height = 13
          Caption = 'C'#243'digo'
        end
        object OdontoLabel5: TOdontoLabel
          Left = 104
          Top = 8
          Width = 46
          Height = 13
          Caption = 'Descri'#231#227'o'
        end
        object OdontoLabel6: TOdontoLabel
          Left = 504
          Top = 8
          Width = 13
          Height = 13
          Caption = 'UF'
        end
        object oedCodigo: TOdontoEdit
          Left = 16
          Top = 24
          Width = 77
          Height = 19
          CharCase = ecUpperCase
          TabOrder = 0
          CorFoco = 15461355
        end
        object oedDescricao: TOdontoEdit
          Left = 104
          Top = 24
          Width = 385
          Height = 19
          CharCase = ecUpperCase
          TabOrder = 1
          CorFoco = 15461355
        end
        object oedUF: TOdontoEdit
          Left = 504
          Top = 24
          Width = 25
          Height = 19
          CharCase = ecUpperCase
          MaxLength = 2
          TabOrder = 2
          CorFoco = 15461355
        end
      end
    end
    inherited tbsficha: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 619
      ExplicitHeight = 298
      object OdontoLabel1: TOdontoLabel
        Left = 16
        Top = 16
        Width = 33
        Height = 13
        Caption = 'C'#243'digo'
      end
      object OdontoLabel2: TOdontoLabel
        Left = 94
        Top = 16
        Width = 46
        Height = 13
        Caption = 'Descri'#231#227'o'
      end
      object OdontoLabel3: TOdontoLabel
        Left = 496
        Top = 16
        Width = 13
        Height = 13
        Caption = 'UF'
      end
      object dbeCodigo: TDBOdontoEdit
        Left = 16
        Top = 35
        Width = 65
        Height = 21
        CharCase = ecUpperCase
        DataField = 'Cidade_Cd'
        DataSource = dsCadastro
        TabOrder = 0
        CorFoco = 15461355
      end
      object dbeDescricao: TDBOdontoEdit
        Left = 94
        Top = 35
        Width = 387
        Height = 21
        CharCase = ecUpperCase
        DataField = 'Cidade_Ds'
        DataSource = dsCadastro
        TabOrder = 1
        CorFoco = 15461355
      end
      object dbeUF: TDBOdontoEdit
        Left = 496
        Top = 35
        Width = 25
        Height = 21
        CharCase = ecUpperCase
        DataField = 'Cidade_UF'
        DataSource = dsCadastro
        TabOrder = 2
        CorFoco = 15461355
      end
    end
  end
  inherited pnlBotoes: TPanel
    Width = 584
    ExplicitWidth = 116
    inherited imgBotoes: TImage
      Width = 582
    end
  end
  inherited statCadastro: TStatusBar
    Top = 347
    Width = 584
    ExplicitTop = -25
    ExplicitWidth = 116
  end
  inherited pmOrdenar: TPopupMenu
    Left = 546
  end
  object dsCadastro: TDataSource
    DataSet = qCadastro
    Left = 24
    Top = 216
  end
  object qCadastro: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT Cidade_Cd, '
      '             Cidade_Ds,'
      '             Cidade_UF'
      'FROM Cidade ')
    Left = 24
    Top = 248
    object qCadastroCidade_Cd: TAutoIncField
      FieldName = 'Cidade_Cd'
      ReadOnly = True
    end
    object qCadastroCidade_Ds: TStringField
      FieldName = 'Cidade_Ds'
      Size = 50
    end
    object qCadastroCidade_UF: TStringField
      FieldName = 'Cidade_UF'
      FixedChar = True
      Size = 2
    end
  end
end
